Option Explicit
Sub O_Sample010()
    Dim myMdl         As VBIDE.CodeModule
    Dim myPrcNameClc1 As New Collection
    Dim myPrcNameClc2 As Collection
    Dim myStr         As String
    Dim myTmpStr      As String
    Dim myStRow       As Long
    Dim myEdCol       As Long
    Dim myRet         As Boolean
    Dim i             As Long
    Dim j             As Long
    Set myMdl = ThisWorkbook.VBProject _
        .VBComponents("Module1").CodeModule		'wҲ
    With myMdl
        For i = 1 To .CountOfLines
            myStr = .ProcOfLine(i, vbext_pk_Proc)
            If myStr <> "" Then
            On Error Resume Next
            myPrcNameClc1.Add myStr, myStr
            On Error GoTo 0
            End If
        Next
        For i = 1 To myPrcNameClc1.Count
            For j = 0 To 3
                myStRow = 0
                myStr = ""
                On Error Resume Next
                myStRow = .ProcBodyLine(myPrcNameClc1(i), j)
                On Error GoTo 0
                If myStRow <> 0 Then
                    Do
                        myTmpStr = .Lines(myStRow, 1)
                        If Right(myTmpStr, 2) = " _" Then
                            myStr = myStr + Left( _
                            	myTmpStr, Len(myTmpStr) - 2)
                            myStRow = myStRow + 1
                        Else
                            myStr = myStr + myTmpStr
                            Debug.Print myStr
                            Exit Do
                        End If
                    Loop
                End If
            Next
        Next
    End With
    Set myMdl = Nothing				'
End Sub
